COMMENT ⊗   VALID 00008 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	"Circle font created by ALS"
C00003 00003	"a: A 5 point circle"
C00004 00004	"b: A 10 point circle"
C00005 00005	"c: A 20 point circle"
C00006 00006	"d: A 40 point circle"
C00007 00007	"e: A 50 point circle"
C00008 00008	"f: A 100 point circle"
C00011 ENDMK
C⊗;
"Circle font created by ALS";
fntmode; % this causes a font to be created for the XGP?
tfmmode; % this causes a TEX information file to be produced
proofmode; drawdisplay;
titletrace; % this prints out quoted strings when they occur
pts=100; % Needed at this time for maxht below
% prixels=3.6; % raster units per point for TEX on the XGP 
pixels=5.3; % raster units per point for TEX on the DOVER maybe
w0=3;
% w0=pixels+1; % pen size is one point plus one raster unit
cpen; maxht top0 pts.pixels. % tallest output in raster units
"a: A 5 point circle";
s=1/20;
charcode `a;
input cirsub;
"b: A 10 point circle";
new s; s=1/10;
charcode `b;
input cirsub;
"c: A 20 point circle";
new s; s=1/5;
charcode `c;
input cirsub;
"d: A 40 point circle";
new s; s=1/2.5;
charcode `d;
input cirsub;
"e: A 50 point circle";
new s; s=1/2;
charcode `e;
input cirsub;
"f: A 100 point circle";
new s; s=1;
charcode `f;
input cirsub;
end.